Headbone Interactive/Headbone_Interactive_CD-ROM_Sampler_1995.iso/pc/demos/pants/intro.dxr/00105_quitting scripts.ls

Text File | 1995-09-15 | 300 b | 14 lines

on quitPants
  global gvQuitSprite
  set the castNum of sprite gvQuitSprite to the number of cast "StopHI"
  updateStage()
  repeat while the mouseDown
    nothing()
  end repeat
  set the castNum of sprite gvQuitSprite to the number of cast "Stop"
  go(label("King Waves"))
end

on quitPantsNow
end